home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PNC-ATL1.ZIP / ASCII / ASCII.PPS < prev    next >
Encoding:
Text File  |  1996-09-10  |  1.3 KB  |  38 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ; ASCII Mode for Atlantis v1.0 [Add-On]
  3. ; Written by Jolly Roger
  4. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  5. ; Please modify it so it suits your needs. - It's quite simple..
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7. string CommandToExecute
  8.  
  9. BEGIN
  10.   :Start
  11.   COLOR 7
  12.   GETUSER
  13.   IF (U_EXPERT = FALSE) THEN              'Display menu to all users
  14.     CLS                                   'with Expert Mode turned OFF
  15.     DISPFILE PPEPath() + "ASCII.MNU", 0
  16.   END IF
  17.   PRINTLN "┌──[Conference: @CONFNAME@─ -  -"
  18.     PRINT "└───[Minutes Left: @MINLEFT@ ]─[COMMAND: "
  19.   :Input
  20.   INPUTSTR "_", CommandToExecute, "@X0F", 65, MASK_ASCII(), DEFS+STACKED
  21.   TOKENIZE CommandToExecute
  22.   IF (CommandToExecute = "") THEN
  23.     IF (U_EXPERT = FALSE) GOTO Input
  24.   END IF
  25.   NEWLINE
  26.   COMMAND TRUE, CommandToExecute
  27.   GETUSER   'The user could have changed the expert mode setting.
  28.   IF (U_EXPERT = FALSE) THEN
  29.      NEWLINE
  30.      WAIT   'Else the menu would be displayed before
  31.             'the user could see what happened
  32.   END IF
  33.   NEWLINE
  34.   CommandToExecute = ""   'So that if the user presses Enter the same command
  35.                           'as before is gone..
  36.   GOTO Start
  37. END
  38.